home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
err_func.arc
/
TEST_ERR.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1990-09-16
|
641b
|
25 lines
Program Test_Error;
{$D+,L+}
(* Test for ERR_FUNC Run time Error trapping Unit
Released into the Public Domain, and entered
into the Great PASCAL echo contest :-)
Author Richard A. Morris
Fido 3:640/378
Important for maximum effectiveness compile
your suspect programs in the Debug/Standalone
debugging/On and O/L/Map File/Detailed Status.
*)
uses err_func;
VAR F : FILE;
begin
Exit_Msg := 'TEST_ERR: File not found';
Assign(F,'ERR_FUNC.DAT');
Reset(F); {O.K. let's open a non existant file for writing}
Close(F);
end.